home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tq.d64 / wedge.inst.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  92 lines
  1. 10 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][149][215][197][204][195][207][205][197][160][212][207]:"
  2. 20 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 30 PRINT"[221][146][195] - 64 [215][197][196][199][197][149][221]"
  4. 40 PRINT"[221][146][201][206][211][212][210][213][195][212][201][207][206][211][149][221]"
  5. 50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  6. 60 PRINT"[194]Y [211]TEVE [199]AST"
  7. 70 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  8. 80 GETW$:IFW$=""THEN80
  9. 90 PRINT"[147] @ "
  10. 100 PRINT"[212]HIS COMMAND WILL READ THE ERROR"
  11. 110 PRINT"CHANNEL AND INTIALIZE THE DISK DRIVE"
  12. 120 PRINT" @[195][DRIVE #]:[NEWFILE]=[OLDFILE] "
  13. 130 PRINT"[212]HIS COMMAND WILL MAKE A SECOND COPY OF"
  14. 140 PRINT"A PROGRAM UNDER A DIFFERENT NAME [207][206] [212][200][197]"
  15. 150 PRINT"[211][193][205][197] [196][201][211][203]. [198]OR EXAMPLE: @[195]0:[208][210][207][199][210][193][205]1="
  16. 160 PRINT"[208][210][207][199][210][193][205]2 WILL MAKE A COPY OF [208][210][207][199][210][193][205]1"
  17. 170 PRINT"CALLED [208][210][207][199][210][193][205]2 ON THE SAME DISK."
  18. 180 PRINT" @[201][DRIVE #] "
  19. 190 PRINT"[212]HIS COMMAND WILL INITIALIZE THE DISK"
  20. 200 PRINT"DRIVE. [206]OTE: YOU CAN INITIALIZE A DRIVE"
  21. 210 PRINT"OTHER THAN 0 (THE DEFAULT DRIVE #) BY"
  22. 220 PRINT"ADDING THE DRIVE # AFTER THE LETTER [201]."
  23. 230 PRINT"[197]XAMPLE: @[201]1.
  24. 240 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  25. 250 [161]W$:[139]W$[178]""[167]250
  26. 260 [153]"LOAD @(null)0:[DISKNAME],[ID] "
  27. 270 [153]"(null)HIS COMMAND WILL FORMAT A DISK WHERE"
  28. 280 [153]"[DISKNAME] IS A USER ASSIGNED NAME FOR"
  29. 290 [153]"THE DISK AND [ID] IS A TWO ALFA-NUMERIC"
  30. 300 [153]"USER ASSIGNED RIGHT$.STR$."
  31. 310 [153]" @(null) "
  32. 320 [153]"(null)HIS COMMAND WILL KILL PEEK(null)(null)LEFT$ THE LEN-64"
  33. 330 [153]"(null)VALSTR$CHR$VAL AND (null)RIGHT$(null)(null) ATNRIGHT$STR$ (null)(null)(null)(null)"
  34. 340 [153]" @(null)0:[NEWFILE]=[OLDFILE] "
  35. 350 [153]"(null)HIS COMMAND ALLOWS A PROGRAM OR FILE"
  36. 360 [153]"UNDER AN EXISTING NAME(OLDFILE) TO BE"
  37. 370 [153]"RENAMED(NEWFILE) ON THE DISK DIRECTORY."
  38. 380 [153]" @(null)0:[FILENAME] "
  39. 390 [153]"(null)HIS COMMAND ALLOWS A PROGRAM OR FILE"
  40. 400 [153]"TO BE SCRATCHED FROM THE DISK DIRECTORY."
  41. 410 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  42. 420 [161]W$:[139]W$[178]""[167]420
  43. 430 [153]"LOAD @(null)RIGHT$ "
  44. 440 [153]"(null)HIS COMMAND WILL RESET THE STR$ISK"
  45. 450 [153]"(null)PERATING (null)YSTEM (STR$(null)(null))."
  46. 460 [153]" @$ "
  47. 470 [153]"(null)HIS COMMAND WILL DISPLAY THE DIRECTORY"
  48. 480 [153]"(null)RIGHT$(null)LEFT$(null)(null)(null) ATNASCASCVALLEN(null)RIGHT$(null)CHR$ ATN (null)(null)(null)CHR$(null)ATN(null) RIGHT$(null) (null)VAL(null)(null)(null)(null)."
  49. 490 [153]" @#[CHANNEL 8-15] "
  50. 500 [153]"(null)HIS COMMAND WILL SEND ALL STR$(null)(null) COMMANDS"
  51. 510 [153]"TO A SELECTED CHANNEL (8-15)."
  52. 520 [153]" /[FILENAME] "
  53. 530 [153]"(null)HIS COMMAND WILL LOAD A PEEKATN(null)RIGHT$LEN PROGRAM"
  54. 540 [153]"(FILENAME IN THE ABOVE EXAMPLE)."
  55. 550 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  56. 560 [161]W$:[139]W$[178]""[167]560
  57. 570 [153]"LOAD %[FILENAME] "
  58. 580 [153]"(null)HIS COMMAND WILL LOAD A PROGRAM AT IT'S";
  59. 590 [153]"OWN LOAD ADDRESS.(I.E. A MACHINE"
  60. 600 [153]"LANGUAGE PROGRAM) RIGHT$N THE ABOVE EXAMPLE"
  61. 610 [153]"FILENAME REFERS TO THE PROGRAMS NAME"
  62. 620 [153]"AS IT APPEARS ON THE DIRECTORY."
  63. 630 [153]" ^[FILENAME] "
  64. 640 [153]"(null)HIS COMMAND WILL LOAD AND RUN A PEEKATN(null)RIGHT$LEN"
  65. 650 [153]"PROGRAM (FILENAME IN THE ABOVE EXAMPLE)"
  66. 660 [153]" _[FILENAME] "
  67. 670 [153]"(null)HIS COMMAND WILL SAVE A PEEKATN(null)RIGHT$LEN PROGRAM"
  68. 680 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  69. 690 [161]W$:[139]W$[178]""[167]690
  70. 700 [153][199](14)"LOAD STR$(null) (null)(null)(null) (null)RIGHT$(null)LEFT$ (null)(null): "
  71. 710 [153]"1. (null)(null)(null) (null)(null)(null)VAL(null) ATNRIGHT$STR$"
  72. 720 [153]"2. (null)VALVAL STR$VAL(null)ATNRIGHT$(null)VALSTR$ (null)RIGHT$(null)(null) ATNRIGHT$STR$ (null)(null)(null)(null)"
  73. 730 [153]"   RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
  74. 740 [153]"3. (null)VALVAL (null)(null)(null)VAL(null) ATNRIGHT$STR$ CHR$VAL(null)VAL(null)ATN(null) LEN(null)(null)(null)VAL(null)(null)(null)
  75. 750 PRINT"4. [211][197][197] [211][213][208][197][210] [196][207][211] [201][206][211][212][210][213][195][212][201][207][206][211]"
  76. 760 PRINT"5. [211][197][197] [216][212][210][193]-[205][207][206] [201][206][211][212][210][213][195][212][201][207][206][211]"
  77. 770 PRINT"6. [197][216][201][212] [212][200][197] [208][210][207][199][210][193][205]"
  78. 780 PRINT"[197]NTER YOUR NUMBER OF CHOICE"
  79. 790 GETW$:IFW$=""THEN790
  80. 800 IFW$<>"1"ANDW$<>"2"ANDW$<>"3"ANDW$<>"4"ANDW$<>"5"ANDW$<>"6"THEN790
  81. 810 W=VAL(W$):IFW=6THENPRINT"[147][149]"CHR$(142):NEW:END
  82. 820 IFW=1THENNP$="SUPER.AID.C"
  83. 830 IFW=2THENNP$="TAP.INST.D"
  84. 840 IFW=3THENNP$="S.A.COMMENTS.D"
  85. 850 IFW=4THENNP$="SUPER.DOS.INST.D"
  86. 860 IFW=5THENNP$="XMON.INST.D"
  87. 870 PRINT"[147][144]LOAD"CHR$(34)NP$CHR$(34)",8"
  88. 880 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
  89. 890 PRINTCHR$(142)"[149][213][195][195][195][195][195][195][195][195][195][195][195][201]"
  90. 900 PRINTCHR$(142)"[149][221][146]PLEASE WAIT[149][221]"
  91. 910 PRINTCHR$(142)"[149][202][195][195][195][195][195][195][195][195][195][195][195][203][146][144]":END
  92.